﻿Imports System.Data.SqlClient
Imports System.Configuration
Public Class daDataConnection
    Private strCadenaConexion As String

    Sub New()
        Try
            strCadenaConexion = ConfigurationManager.ConnectionStrings("local").ConnectionString
        Catch ex As Exception

        End Try
    End Sub

    Function Conectar() As SqlConnection
        Dim sqlConexion As New SqlConnection(strCadenaConexion)
        sqlConexion.Open()
        Return sqlConexion
    End Function
End Class
